SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TMUSUA_I10]
/*------------------------------------------------------*/
/*---- Empresa           : OFISIS S.A.              ----*/
/*---- Cliente           : OFISIS S.A.              ----*/
/*---- Sistema           : Seguridad                ----*/
/*---- Módulo            : Seguridad                ----*/
/*---- Programa          : Mantenimiento Usuarios   ----*/
/*---- Script            : TMUSUA                   ----*/
/*---- Nombre SP         : SP_TMUSUA_I10            ----*/
/*---- Desarrollado por  : Gianmarco Lindo Huertas  ----*/
/*---- Fecha Creación    : 21/06/2002               ----*/
/*---- Base de Datos     : SQL                      ----*/
/*---- Versión           : 7.0                      ----*/
/*---- Invoca a SP       : SP_ADDLOGIN,             ----*/
/*----                     SP_ADDSRVROLEMEMBER      ----*/
/*------------------------------------------------------*/
/*------------------------------------------------------*/
/*---- Modificado 1 por     :  Hedda Laguna         ----*/
/*---- Fecha Modificación   :  04/03/2004           ----*/    
/*---- Detalle Modificación :  Agregar como usuario ----*/  
/*----                         master               ----*/
/*------------------------------------------------------*/
/*------------------------------------------------------*/
/*---- Modificado 2 por     :  Augusto Espinoza     ----*/
/*---- Fecha Modificación   :  24/04/2009           ----*/    
/*---- Detalle Modificación :  Se modifico la variable--*/  
/*---- @ISCO_USUA_0001 el tipo de dato TD_VC_020 a   ---*/
/*----a  TD_VC_100 				     ---*/
/*------------------------------------------------------*/
/*---- Modificado 3 por     :  Claudio Cutipa       ----*/
/*---- Fecha Modificación   :  23/08/2010           ----*/    
/*---- Detalle Modificación :  Se agrego las variables --*/  
/*---- @ISDE_DOMI_WIND y @ISCO_USUA_SMAR              ---*/
/*----  				              ---*/
/*------------------------------------------------------*/
/*------------------------------------------------------*/
/*---- Comentarios:                                 ----*/
/*----                                              ----*/
/*----                                              ----*/
/*------------------------------------------------------*/
/*------------------------------------------------------*/
/*---- Drop Proc SP_TMUSUA_I10                      ----*/
/*---- Grant All On SP_TMUSUA_I10 to PUBLIC         ----*/
/*------------------------------------------------------*/
@ISCO_USUA_0002 TD_VC_008,
@ISCO_USUA      TD_VC_008,
@ISNO_USUA      TD_VC_050,
@ISNO_CLAV_0001 TD_VC_020,
@IDFE_MODI_CLAV TD_DT_001,
@ISCO_GRUP      TD_VC_008,
@ISDE_DIRE_MAIL TD_VC_050,
@ISDE_DOMI_WIND TD_VC_200,
@ISCO_USUA_SMAR TD_VC_200,
@ISST_ACTI      TD_VC_001_SINO,
@ISST_EXPI_CLAV TD_VC_001_SINO,
@IDFE_EXPI_CLAV TD_DT_001,
@INNU_DDME_CLAV TD_SI_001,
@ISST_EXPI_USUA TD_VC_001_SINO,
@IDFE_EXPI_USUA TD_DT_001,
@ISST_HORA      TD_VC_001_SINO,
@ISHO_INIC      TD_VC_004,
@ISHO_FINA      TD_VC_004,
@ISST_MAST      TD_VC_001_SINO,
@ISTI_CONE      TD_VC_003,
@ISCO_EMPR_CONE TD_VC_002,
@ISCO_UNID_CONE TD_VC_003,
@ISCO_USUA_0001 TD_VC_100

WITH ENCRYPTION 
As
 Declare
 @VSCO_GRUP     TD_VC_008,
 @VNNU_SECU     TD_IN_001

  If Datalength( Rtrim( LTrim( @ISCO_GRUP ) ) ) > 0
     Select @VSCO_GRUP = @ISCO_GRUP
  Else
     Select @VSCO_GRUP = NULL

  --- Crea Usuario
  Insert into TMUSUA
     ( CO_USUA,      NO_USUA,      NO_CLAV,
       FE_MODI_CLAV, CO_GRUP,      DE_DIRE_MAIL,
       DE_DOMI_WIND, CO_USUA_SMAR, ST_ACTI,
       ST_EXPI_CLAV, FE_EXPI_CLAV, 
       NU_DDME_CLAV, ST_EXPI_USUA, FE_EXPI_USUA,
       ST_HORA,      HO_INIC,      HO_FINA,
       ST_MAST,      TI_CONE,      CO_EMPR_CONE,
       CO_UNID_CONE, CO_USUA_CREA, CO_USUA_MODI )
     Values
     ( @ISCO_USUA,      @ISNO_USUA,      @ISNO_CLAV_0001,
       @IDFE_MODI_CLAV, @VSCO_GRUP,      @ISDE_DIRE_MAIL,
       @ISDE_DOMI_WIND, @ISCO_USUA_SMAR, @ISST_ACTI,      
       @ISST_EXPI_CLAV, @IDFE_EXPI_CLAV,
       @INNU_DDME_CLAV, @ISST_EXPI_USUA, @IDFE_EXPI_USUA,
       @ISST_HORA,      @ISHO_INIC,      @ISHO_FINA,
       @ISST_MAST,      @ISTI_CONE,      @ISCO_EMPR_CONE,
       @ISCO_UNID_CONE, @ISCO_USUA_0002, @ISCO_USUA_0002)

     If @@error != 0
       Begin
         Rollback tran
         Return
       End
 
  --- Inserta en la table de Claves de Usuario
  
  Select @VNNU_SECU = IsNull(Max(IsNull(NU_SECU,0)),0) + 1
  From   TDUSUA_CLAV
  Where  CO_USUA = @ISCO_USUA 

  INSERT INTO TDUSUA_CLAV ( CO_USUA, NU_SECU, NO_CLAV, CO_USUA_CREA, CO_USUA_MODI)
  VALUES ( @ISCO_USUA, @VNNU_SECU, @ISNO_CLAV_0001, @ISCO_USUA, @ISCO_USUA)

  If @@error != 0  
   Begin  
     Rollback tran  
     Return  
   End  


 Return
 /*------------------------------ Fin -------------------------------*/
GO
